home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
G-Games
/
(c)gc.d64
/
mommy slither.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
14KB
|
77 lines
0 POKE45,209:POKE46,22:POKE51,181:POKE52,54:POKE55,181:POKE56,54:CLR
1 REM********************************** * BASED ON THE ORIGINAL VIC-20 *
2 REM* PROGRAM 'SLITHER DEAREST' BY * * ROGER D. BURGE. CONVERTED TO *
3 REM* THE COMMODORE 64 BY ROGER D. * * BURGE, #2667 *
4 REM* TORONTO PET USERS GROUP INC., * * CANADA *
5 REM**********************************
8 PRINT"":R$="":POKE53272,31
10 DIMQ(100):Q(1)=RND(-TI):JS=14005:ZP=251:M=1177:DO=M:DR=-1:TA=3600:T1=31:GG=83
20 E=.:W=1:Z=W:A=6:N=A:BO=81:ME=90:H1=101:NI=19:DE=2:F1=41:K=53248+T1:TR=3:BS=32
21 T3=33:FI=5:SE=17:F0=40:DN=65:S=53248:POKE53269,.:POKES+28,.
22 D$="":POKES+16,.:SC=1024:C=54272:TW=20
23 POKE53280,.:POKE2040,222:POKES+29,.:POKES+23,.:POKES+39,7:GOSUB900:GOSUB12000
29 G$="[211]":F$=" "
30 GOTO40
35 POKES2,SE:E$=LEFT$(R$,INT(RND(W)*T1)+W)+LEFT$(D$,INT(RND(W)*TW)+W):PRINT"";E$"[211]"
36 PRINT" ":POKES2,.:RETURN
40 POKE53281,W:PRINT"[147]":POKE53281,.:E=.
41 P=.:DR=-W:A=6:N=A:PRINT"[159] ";
42 PRINT"[146][152][214][214][214][214][214][214][214][214][214][214][214] SLITHER DEAREST! [152][146][214][214][214][214][214][214][214][214][214][214][214]"
45 H$="HIGH:"+STR$(HI):PRINT"[159]SCORE:"P:PRINT""SPC(F0-LEN(H$))H$
46 POKES,126:POKES+W,99
70 FORJ=SC+920TOSC+959:POKEJ,86:POKEJ+C,12:POKEJ+F0+C,TR:POKEJ+F0,160:NEXT
71 PRINT"[152][214] [152][214]";
73 FORT=1TONI:PRINT"[214] [152][214] [152][214]";:NEXT
84 PRINT "[159]ROGER D. BURGE
140 M[178]DO:[129]T[178]253[164]254:[151]T,[181]([187](W)[172]DE):[130]:[158]SY:[141]35
160 [151]M,ME:[151]781,42:[151]ZP,42:Q(W)[178]M:[151]S[170]21,W:T[178][194](S[170]T1):TI$[178]"000000"
180 [153]"OPEN"[166]NI)[201](TI$,DE):[158]JS:DR[178]F1[171][194](ZP):[139]TI[177]TA[167]620
182 [139][194](K)[167]E[178].:[153]""E$" ":[141]35
210 Q(A)[178]M[170]DR:[139][194](Q(A))[170]E[178]GG[167][151]S1,T3:E[178]W:P[178]P[170]W:N[178]N[170]W:[153]""P;G$:[137]260
215 [139]Q(A)[178]DO[175]E[167]P[178]P[170]FI:N[178]N[170]DE:[153]""P:E[178].:[141]35:[137]260
220 [139][194](Q(A))[179][177]BS[167][151]M,BO:[151]M[170]DR[170]C,10:[151]M[170]DR,DN:[137]600
260 Z[178]A[171]N:[139]Z[179].[167]Z[178]H1[170](A[171]N)
310 [151]Q(Z),BS:A[178](A[170]W)[172][171](A[170]W[179]H1)
350 [151]M,BO:[151]M[170]DR,ME:M[178]M[170]DR:[137]180
600 [153]"SYS GAME OVER! "
605 [151]S1,129:[129]T[178]15[164].[169][171]W:[151]S1[170]TW,T:[129]TT[178]W[164]100:[130]:[130]:[151]S1,.
610 [151]S1[170]TW,15:[151]S2,.:[137]650
620 [153]"SYS TIME'S UP! "
625 [129]T[178]W[164]FI:[151]S1,T3:[151]S2,T3:[129]TT[178]W[164]222:[130]:[151]S1,.:[151]S2,.:[130]
650 [158]SN:[153]"OPENSCORE:"P:[139]P[179][178]HI[167]670
660 [129]T[178]W[164]5:[151]S1,33:HI[178]P:H$[178]" HIGH:"[170][196](HI):[153]"SYS"[166]F0[171][195](H$))H$
665 [129]TT[178]W[164]125:[130]:[151]S1,.:[153]"OPEN"[166]F0[171][195](H$))H$:[129]TT[178]W[164]125:[130]:[130]
670 [151]198,.
680 TT[178](TT[170]W)[175]W:[151]646,TT[172]13:[153]" PUSH FIRE BUTTON TO PLAY OR F1 TO QUIT "
681 [161]A$:[139]A$[178]""[167][129]T[178]W[164]125[170]925[172]TT:[130]:[137]680
682 [139][198](A$)[178]160[167]40
683 [139][198](A$)[178]133[167]1000
684 [129]T[178]W[164]125:[130]:[137]680
900 SY[178]14181:SN[178]14194
950 SV[178]54272:[129]T[178]SV[164]SV[170]24:[151]T,.:[130]
960 [151]SV[170]24,15:[151]SV[170]5,17:[151]SV[170]6,17
970 [151]SV[170]1,37:[151]SV,162
975 [151]SV[170]12,17:[151]SV[170]13,17:[151]SV[170]8,28:[151]SV[170]7,.
980 S1[178]54276:S2[178]SV[170]11:[142]
1000 [129]T[178]1[164]666:[130]:[158]64738
12000 [151]53281,1:[153]"LOADSTOP SLITHER(null)DEAREST! ";
12010 [153]"WAIT BY ROGER D BURGE"
12015 [153][166]6)"FORREQUIRES JOYSTICK IN PORT #1STOP
12020 PRINT"HELP MOMMY SLITHER THE WONDER SNAKE FIND HER EGGS & RETURN ";
12025 PRINT"THEM TO HER NEST.";:PRINT"USE YOUR JOYSTICK TO MOVE HER OUT OF ";
12030 PRINT"THE NEST (THE RECTANGLE ON THE RIGHT SIDE OF THE SCREEN) AND ";
12035 PRINT"GUIDE HER TO HEREGGS. DON'T LET HER TOUCH THE WALLS OR HERSELF OR";
12040 PRINT" IT'S GAME OVER!":PRINT"YOU GET 1 POINT FOR REACHING AN EGG AND";
12045 PRINT"YOUR BODY GROWS A NEW SEGMENT. RETURN TOTHE NEST WITH THE EGG AND";
12050 PRINT" GET 5 POINTS AND 3 NEW BODY SEGMENTS.":PRINT" BUT WATCH OUT FOR THE ";
12055 PRINT"BIRD OF PREY TRY-ING TO STEAL THE EGGS. IF HE REACHES THEEGG FIRST";
12060 PRINT" YOU'LL HAVE TO WAIT FOR A NEW EGG TO APPEAR. IF THE BIRD TOUCHES ";
12065 PRINT" MOM-MY SLITHER THEN SHE LOSES THE EGG SHE ISCARRYING. ";
12070 PRINT"OCCASIONALLY HER TAIL WILL SQUASH A NEW EGG INTO THE GROUND. ";
12075 PRINT"IF SHEHAS AN EGG ONE WILL SHOW AT THE TOP OF THE SCREEN.
12080 [153]"STOP YOU HAVE ONLY 60 SECONDS! GOOD LUCK!
12085 PRINT"[149] PRESS FIRE BUTTON TO PLAY! ":POKE198,.
12090 GETA$:IFA$=""THEN12090
12100 IFASC(A$)=160THENRETURN
12110 GOTO12090